home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / likene1a / module23.bas < prev    next >
BASIC Source File  |  1999-09-24  |  2KB  |  68 lines
  1. Attribute VB_Name = "Module1"
  2. Declare Function ShowCursor& Lib "user32" _
  3.     (ByVal bShow As Long)
  4.  
  5. Declare Sub BringWindowToTop Lib "user" (ByVal hWnd As Integer)
  6.  
  7. Declare Function SendMessage Lib "user" (ByVal hWnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Any) As Long
  8. Global Const WM_CLOSE = &H10
  9.  
  10. Declare Sub SetWindowPos Lib "user" (ByVal hWnd%, ByVal hwndAfter%, ByVal X%, ByVal Y%, ByVal cx%, ByVal cy%, ByVal swp%)
  11. Global Const HWND_TOP = 0
  12. Global Const HWND_BOTTOM = 1
  13. Global Const HWND_TOPMOST = -1
  14. Global Const HWND_NOTOPMOST = -2
  15. Global Const GWL_ID = (-12)
  16. Global Const GW_HWNDNEXT = 2
  17. Global Const GW_CHILD = 5
  18. Global Const FWP_STARTSWITH = 0
  19. Global Const FWP_CONTAINS = 1
  20.  
  21. Declare Function ShellExecute Lib "shell.dll" (ByVal hWnd As Integer, ByVal lpszOp As String, ByVal lpszFile As String, ByVal spszParams As String, ByVal lpszDir As String, ByVal fsShowCmd As Integer) As Integer
  22. Global Const SW_SHOW = 5
  23.  
  24. Public Const EWX_LOGOFF = 0
  25. Public Const EWX_SHUTDOWN = 1
  26. Public Const EWX_REBOOT = 2
  27. Public Const EWX_FORCE = 4
  28. Declare Function LogOffEx Lib "user2 (byval uflags as long, byval dwReserved As Long) As Long" ()
  29. Declare Function ExitWindowsEx Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long) As Long
  30.  
  31. Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long) As Long
  32. Public Const SPI_SCREENSAVERRUNNING = 97
  33.  
  34. Public Type POINTAPI
  35.         X As Long
  36.         Y As Long
  37. End Type
  38.  
  39. Public Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long
  40. Public Declare Function SetDoubleClickTime Lib "user32" (ByVal wCount As Long) As Long
  41. Public Declare Function SwapMouseButton Lib "user32" (ByVal bSwap As Long) As Long
  42. Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  43. Public Declare Function GetDoubleClickTime Lib "user32" () As Long
  44.  
  45. Public Ret As Long
  46. Public Pos As POINTAPI
  47.  
  48. Option Explicit
  49.  
  50. Declare Function SetWindowWord Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long
  51.  
  52. Global Const GWW_HWNDPARENT = (-8)
  53.  
  54.  
  55.  
  56. Sub Wait(WaitSeconds As Single)
  57.  
  58. Dim StartTime As Single
  59.  
  60. StartTime = Timer
  61.  
  62. Do While Timer < StartTime + WaitSeconds
  63. DoEvents
  64. Loop
  65.  
  66. End Sub
  67.  
  68.